home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / other / wla_020_3.0 / examples / linker_test / main.s < prev    next >
Text File  |  2000-02-28  |  1KB  |  45 lines
  1.  
  2. ;»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
  3. ; a small example showing the wla syntax
  4. ; this little program flashes the background colour
  5. ; written by ville helin <vhelin@cc.hut.fi> in 1998-2000
  6. ;»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
  7.  
  8. ;»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
  9. ; includes
  10. ;»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
  11.  
  12. .INCLUDE "defines.i"
  13. .INCDIR  "../include/"
  14. .INCLUDE "cgb_hardware.i"
  15.  
  16. ;»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
  17. ; main
  18. ;»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
  19.  
  20. .BANK = 0
  21. .ORG = $150
  22.  
  23. .SECTION "Beginning" FREE
  24.  
  25. MAIN:    DI
  26.     LD    SP, $FFFE
  27.     SUB    A
  28.     LD    ($FF00+R_IE), A        ;no interrupts at all.
  29.  
  30.     LD    A, 144
  31.     LD    ($FF00+R_WY), A        ;window y.
  32.  
  33.     LD    A, %10000001
  34.     LD    ($FF00+R_LCDC), A    ;lcd control.
  35.  
  36.     SUB    A
  37.  
  38. _LOOP:    LD    ($FF00+R_BGP), A    ;background palette.
  39.     INC    A
  40.  
  41.     JP    _LOOP
  42. .ENDS
  43.  
  44. ;»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
  45.